home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / RICK-L.ZIP / NODE1.ZIP / Q1.BAT < prev    next >
DOS Batch File  |  1993-01-16  |  6KB  |  288 lines
  1. SET PCTOOLS=
  2. SET ZIPCOMNT=C:\APND\COMMENT.TXT
  3. SET ZIPTIME=ARCHIVE
  4.  
  5. rem echo off
  6. d:
  7. cd\qnode1
  8. XU PORT:1:ON
  9. AT COM2:H1
  10. WAIT 1
  11. AT COM2:M0
  12. wait 5
  13. del \dbridge.rs?
  14. d:
  15. cd\dbridge
  16. break on
  17. rem > D:\QNODE1\LOCAL.!!!
  18. REM -------------------START UP DBRIDGE------------------------------
  19.  
  20. :LOOP
  21. ECHO The label is LOOP
  22. call chkfiles
  23. c:
  24. cd\utils
  25. dbqueue
  26. CD\
  27. d:
  28. cd\dbridge
  29. staroute
  30. CD\
  31.  
  32. :next2
  33. D:
  34. CD\QNODE1
  35. IF EXIST LOCAL.!!! GOTO DB
  36. ECHO Comments Finished
  37.  
  38. :DB
  39. ECHO The label is DB
  40. subst m: /d
  41. if exist d:\acfiles\u_pack\*.* del d:\acfiles\u_pack\zip.zip
  42. CD\DBRIDGE
  43. echo Loading D'Bridge
  44. del d:\down!!!!.!!!
  45. rem > d:\dbridge.!!!
  46. SET GED=D:\DBRIDGE\GOLDED
  47. DB
  48. IF ERRORLEVEL 254 GOTO LOOP
  49. IF ERRORLEVEL 192 IF NOT ERRORLEVEL 193 GOTO 19200
  50. IF ERRORLEVEL 144 IF NOT ERRORLEVEL 145 GOTO 19200
  51. IF ERRORLEVEL 96 IF NOT ERRORLEVEL 97 GOTO 9600
  52. IF ERRORLEVEL 70 IF NOT ERRORLEVEL 71 GOTO LOOP
  53. IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO MAINTAIN
  54. IF ERRORLEVEL 50 IF NOT ERRORLEVEL 51 GOTO FILEBASE
  55. IF ERRORLEVEL 40 IF NOT ERRORLEVEL 41 GOTO LOCAL
  56. IF ERRORLEVEL 24 IF NOT ERRORLEVEL 25 GOTO 2400
  57. IF ERRORLEVEL 12 IF NOT ERRORLEVEL 13 GOTO 1200
  58. IF ERRORLEVEL 3 IF NOT ERRORLEVEL 4 GOTO 300
  59. IF ERRORLEVEL 1 IF NOT ERRORLEVEL 2 GOTO HANGUP
  60. IF ERRORLEVEL 0 IF NOT ERRORLEVEL 1 GOTO END
  61. echo waiting for 5 seconds
  62. wait 5
  63. GOTO LOOP
  64.  
  65. rem -------------------------------logons-------------------------------
  66.  
  67. :LOCAL
  68. echo The label is LOCAL
  69. echo The errorlevel is 40
  70. ECHO > D:\DBRIDGE\DBRIDGE.RSN
  71. ECHO > D:\DBRIDGE\DBRIDGE.RSE
  72. d:
  73. CD\QNODE1
  74. rem > local.!!!
  75. echo y | del \qmx\*.*
  76. del d:\dbridge.!!!
  77. rem > d:\node1.!!!
  78. set tcnode=1
  79. set toped=d:\quick
  80. set DSZPORT=2
  81. set DSZLOG=D:\QNODE1\DSZ.LOG
  82. SET SWR=D:\QUICK
  83. SET GED=
  84. SET QUICK=D:\QUICK
  85. QUICKBBS -B0 -T*T -E0 -N1
  86. DEL USERS.ASW
  87. GOTO AFTERQUICK
  88.  
  89. :19200
  90. ECHO The label is 19200
  91. echo The errorlevel is 192
  92. xu capture:on Port:1:on lock:1:19200
  93. d:
  94. CD\QNODE1
  95. echo y | del \qmx\*.*
  96. ECHO *B
  97. del local.!!!
  98. del d:\dbridge.!!!
  99. rem > d:\node1.!!!
  100. set tcnode=1
  101. set toped=d:\quick
  102. set DSZPORT=2
  103. set DSZLOG=D:\QNODE1\DSZ.LOG
  104. SET SWR=D:\QUICK
  105. SET GED=
  106. SET QUICK=D:\QUICK
  107. QUICKBBS -B19200 -T*T -E0 -N1
  108. GOTO AFTERQUICK
  109.  
  110. :9600
  111. ECHO The label is 9600
  112. echo The errorlevel is 96
  113. xu capture:on Port:1:on lock:1:19200
  114. d:
  115. CD\QNODE1
  116. echo y | del \qmx\*.*
  117. del local.!!!
  118. del d:\dbridge.!!!
  119. rem > d:\node1.!!!
  120. QUICKBBS -B9600 -T*T -E0 -N1
  121. set tcnode=1
  122. set toped=d:\quick
  123. set DSZPORT=2
  124. set DSZLOG=D:\QNODE1\DSZ.LOG
  125. SET SWR=D:\QUICK
  126. SET GED=
  127. SET QUICK=D:\QUICK
  128. GOTO AFTERQUICK
  129.  
  130. :2400
  131. ECHO The label is 2400
  132. ECHO The errorlevel is 24
  133. xu capture:on Port:1:on lock:1:19200
  134. d:
  135. CD\QNODE1
  136. echo y | del \qmx\*.*
  137. del local.!!!
  138. del d:\dbridge.!!!
  139. rem > d:\node1.!!!
  140. set tcnode=1
  141. set toped=d:\quick
  142. set DSZPORT=2
  143. set DSZLOG=D:\QNODE1\DSZ.LOG
  144. SET SWR=D:\QUICK
  145. SET GED=
  146. SET QUICK=D:\QUICK
  147. QUICKBBS -B2400 -T*T -E0
  148. GOTO AFTERQUICK
  149.  
  150. :1200
  151. ECHO The label is 1200
  152. echo The errorlevel is 12
  153. xu capture:on Port:1:on lock:1:19200
  154. d:
  155. CD\QNODE1
  156. echo y | del \qmx\*.*
  157. del local.!!!
  158. del d:\dbridge.!!!
  159. rem > d:\node1.!!!
  160. set tcnode=1
  161. set toped=d:\quick
  162. set DSZPORT=2
  163. set DSZLOG=D:\QNODE1\DSZ.LOG
  164. SET SWR=D:\QUICK
  165. SET GED=
  166. SET QUICK=D:\QUICK
  167. QUICKBBS -B1200 -T*T -E0 -N1
  168. GOTO AFTERQUICK
  169.  
  170. :300
  171. ECHO The label is 300
  172. echo The errorlevel is 3
  173. xu capture:on Port:1:on lock:1:19200
  174. d:
  175. CD\QNODE1
  176. echo y | del \qmx\*.*
  177. del local.!!!
  178. del d:\dbridge.!!!
  179. rem > d:\node1.!!!
  180. set tcnode=1
  181. set toped=d:\quick
  182. set DSZPORT=2
  183. set DSZLOG=D:\QNODE1\DSZ.LOG
  184. SET SWR=D:\QUICK
  185. SET GED=
  186. SET QUICK=D:\QUICK
  187. QUICKBBS -B300 -T*T -E0 -N1
  188. GOTO AFTERQUICK
  189.  
  190. :RESTART
  191. ECHO The label is RESTART
  192. d:
  193. CD\QNODE1
  194. QUICKBBS -R -E0
  195. GOTO AFTERQUICK
  196.  
  197. :AFTERQUICK
  198. ECHO The label is AFTERQUICK
  199. d:
  200. cd\qnode1
  201. logger qups.log qdown.log touch
  202. rem IF EXIST SYSTEM.LOG COUNT22
  203. IF ERRORLEVEL 5 IF NOT ERRORLEVEL 6 GOTO MAILSCAN
  204. IF ERRORLEVEL 4 IF NOT ERRORLEVEL 5 GOTO ECHOSCAN
  205. IF ERRORLEVEL 3 IF NOT ERRORLEVEL 4 GOTO NETSCAN
  206. del d:\node1.!!!
  207. set tcnode=
  208. set toped=
  209. set DSZPORT=
  210. set DSZLOG=
  211. SET SWR=
  212. SET GED=d:\dbridge\golded
  213. SET QUICK=
  214. echo on
  215. cd\qnode1
  216. rem echo off
  217. if exist d:\QNODE1\local.!!! goto loop
  218. goto raquser
  219.  
  220. :MAILSCAN
  221. ECHO The label is MAILSCAN
  222. mailscan
  223. REM > D:\DBRIDGE\DBRIDGE.RSE
  224. REM > D:\DBRIDGE\DBRIDGE.RSN
  225. if not exist d:\QNODE1\local.!!! GOTO RAQUSER
  226. GOTO LOOP
  227.  
  228. :ECHOSCAN
  229. ECHO The label is ECHOSCAN
  230. REM > D:\DBRIDGE\DBRIDGE.RSE
  231. if not exist D:\QNODE1\LOCAL.!!! GOTO RAQUSER
  232. GOTO LOOP
  233.  
  234. :NETSCAN
  235. ECHO The label is NETSCAN
  236. mailscan
  237. REM > D:\DBRIDGE\DBRIDGE.RSN
  238. if not exist D:\QNODE1\LOCAL.!!! GOTO RAQUSER
  239. GOTO LOOP
  240.  
  241. :RAQUSER
  242. CD\QUICK
  243. rem pkzip -u -o -ex -! c:\mscomm\cabbslst d:\quick\bbsbase\bbs.lst
  244. GOTO LOOP
  245.  
  246. rem ------------------------drops from D'Bridge-----------------------
  247.  
  248. :FILEBASE
  249. IF NOT EXIST D:\DBRIDGE\FILEBASE.DFB GOTO LOOP
  250. D:
  251. CD\DBRIDGE
  252. PKZIP -U FILEBASE \DBRIDGE\DFB\*.DFB
  253. DEL \DBRIDGE\DFB\*.DFB
  254. PKUNZIP -N FILEBASE \DBRIDGE\DFB
  255. DB FILEBASE COMPILE
  256. DEL FILEBASE.DFB
  257. DEL \DBRIDGE\DFB\*.DFB
  258. GOTO LOOP
  259.  
  260. :MAINTAIN
  261. ECHO The label is MAINTAIN
  262. echo The errorlevel is 65
  263. datenumb if exist \dbridge\@@##&&&&.txt goto loop
  264. datenumb copy \dbridge\dbmail.res \dbridge\@@##&&&&.txt
  265. datenumb -1 del \dbridge\@@##&&&&.txt
  266. call maintain
  267. GOTO LOOP
  268.  
  269. rem ------------------------------------end---------------------------
  270.  
  271. :hangup
  272. X00
  273. XU dtr:1:off
  274.  
  275. :END
  276. ECHO The label is END
  277. echo The errorlevel is 0
  278. set db-data=
  279. set toped=
  280. set diskstats=
  281. set DSZPORT=
  282. set DSZLOG=
  283. CD\QUICK
  284. del d:\node1.!!!
  285. del d:\dbridge.!!!
  286. rem > d:\down!!!!.!!!
  287. exit
  288.